home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 4,101 to 4,200 / aol-file-protocol-4400-4101-to-4200.zip / AOLDLs / Business Management / MEDISOFT_ V4.14a Medical Patient / MEDI414A.exe / MAIFORMA < prev    next >
Text File  |  1996-01-22  |  11KB  |  657 lines
  1. "Format File Version 9"
  2. "HCFA-1500(1-84) 6 Line"
  3. 153
  4. ""
  5. 1,46,"ñ╒","XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,1
  6. PRINTINS="Y"
  7. INAME
  8. "#E⌐ñY╒","%|"
  9. ""
  10. 2,46,"ñ╒","XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,1
  11. PRINTINS="Y"
  12. ISTREET
  13. "#E⌐ñY╒","%}"
  14. ""
  15. 3,46,"ñ╒","XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,1
  16. PRINTINS="Y"
  17. ICITYLN
  18. "#E⌐ñY╒","%~"
  19. ""
  20. 4,3,"ñ╒","X",0,2
  21. ICURINS="Secondary"
  22. "S"
  23. "%v⌐ñSecondary╒","ñS╒"
  24. ICURINS="Tertiary"
  25. "T"
  26. "%v⌐ñTertiary╒","ñT╒"
  27. ""
  28. 6,3,"ñ╒","X",0,1
  29. ITYPE="M"
  30. "X"
  31. "%{⌐ñM╒","ñX╒"
  32. ""
  33. 6,15,"ñ╒","X",0,1
  34. ITYPE="A"
  35. "X"
  36. "%{⌐ñA╒","ñX╒"
  37. ""
  38. 6,27,"ñ╒","X",0,1
  39. ITYPE="C"
  40. "X"
  41. "%{⌐ñC╒","ñX╒"
  42. ""
  43. 6,40,"ñ╒","X",0,1
  44. ITYPE="V"
  45. "X"
  46. "%{⌐ñV╒","ñX╒"
  47. ""
  48. 6,53,"ñ╒","X",0,1
  49. ITYPE="F"
  50. "X"
  51. "%{⌐ñF╒","ñX╒"
  52. ""
  53. 6,65,"ñ╒","X",0,1
  54. ITYPE="B" OR ITYPE="G" OR ITYPE="O"
  55. "X"
  56. "%{⌐ñB╒░%{⌐ñG╒░%{⌐ñO╒","ñX╒"
  57. NAME
  58. 9,3,"#W","XXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,0
  59. LEFT(BDAY,2)
  60. 9,34,"▓#eºÑ2╒¿","XX",0,0
  61. MIDL(BDAY,3,2)
  62. 9,40,"┤#eºÑ3╒ºÑ2╒¿","XX",0,0
  63. RIGHT(BDAY,2)
  64. 9,46,"│#eºÑ2╒¿","19XX",0,0
  65. IHNAME
  66. 9,52,"&2","XXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,0
  67. ""
  68. 11,38,"ñ╒","X",0,1
  69. SEX="M"
  70. "X"
  71. "#d⌐ñM╒","ñX╒"
  72. ""
  73. 11,44,"ñ╒","X",0,1
  74. SEX="F"
  75. "X"
  76. "#d⌐ñF╒","ñX╒"
  77. IPOLICY
  78. 11,52,"%å","XXXXXXXXXXXXXXXXXXXX",0,0
  79. STREET
  80. 12,3,"#[","XXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,0
  81. CITYLN
  82. 13,3,"#\","XXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,0
  83. "Phone "+PHONE
  84. 14,3,"ñPhone ╒ª#a","XXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,0
  85. IGROUP
  86. 14,52,"&#","XXXXXXXXXXXXXXXXXXXX",0,0
  87. ""
  88. 15,35,"ñ╒","X",0,1
  89. IHREL=1
  90. "X"
  91. "&@⌐Ñ1╒","ñX╒"
  92. ""
  93. 15,39,"ñ╒","X",0,1
  94. IHREL=2
  95. "X"
  96. "&@⌐Ñ2╒","ñX╒"
  97. ""
  98. 15,44,"ñ╒","X",0,1
  99. IHREL=3
  100. "X"
  101. "&@⌐Ñ3╒","ñX╒"
  102. ""
  103. 15,48,"ñ╒","X",0,1
  104. IHREL=4
  105. "X"
  106. "&@⌐Ñ4╒","ñX╒"
  107. ""
  108. 15,57,"ñ╒","X",0,1
  109. EMPLPLAN="Y"
  110. "X"
  111. "#q⌐ñY╒","ñX╒"
  112. IHSTREET
  113. 17,52,"&6","XXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,0
  114. OHNAME
  115. 18,3,"&p","XXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,1
  116. ONUM<1
  117. ""
  118. "&T½Ñ1╒","ñ╒"
  119. ""
  120. 18,38,"ñ╒","X",0,1
  121. RELTOEMPL="Y"
  122. "X"
  123. "#r⌐ñY╒","ñX╒"
  124. ""
  125. 18,44,"ñ╒","X",0,1
  126. RELTOEMPL="N"
  127. "X"
  128. "#r⌐ñN╒","ñX╒"
  129. IHCITYLN
  130. 18,52,"&7","XXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,0
  131. ONAME
  132. 19,3,"&V","XXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,1
  133. ONUM<1
  134. ""
  135. "&T½Ñ1╒","ñ╒"
  136. IHPHONE
  137. 19,60,"&;","XXXXXXXXXXXXXXXXXXXX",0,0
  138. OSTREET
  139. 20,3,"&W","XXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,1
  140. ONUM<1
  141. ""
  142. "&T½Ñ1╒","ñ╒"
  143. OCITYLN
  144. 21,3,"&X","XXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,1
  145. ONUM<1
  146. ""
  147. "&T½Ñ1╒","ñ╒"
  148. ""
  149. 21,38,"ñ╒","X",0,1
  150. RELTOACC="A"
  151. "X"
  152. "#s⌐ñA╒","ñX╒"
  153. ""
  154. 21,44,"ñ╒","X",0,1
  155. RELTOACC="Y"
  156. "X"
  157. "#s⌐ñY╒","ñX╒"
  158. ""
  159. 21,57,"ñ╒","X",0,1
  160. CHSPSTATUS="A"
  161. "X"
  162. "'n⌐ñA╒","ñX╒"
  163. ""
  164. 21,64,"ñ╒","X",0,1
  165. CHSPSTATUS="D"
  166. "X"
  167. "'n⌐ñD╒","ñX╒"
  168. "Policy "+OPOLICY
  169. 22,3,"ñPolicy ╒ª&`","XXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,1
  170. ONUM<1
  171. ""
  172. "&T½Ñ1╒","ñ╒"
  173. ""
  174. 22,57,"ñ╒","X",0,1
  175. CHSPSTATUS="R"
  176. "X"
  177. "'n⌐ñR╒","ñX╒"
  178. ""
  179. 22,73,"ñ╒","XXXX",0,8
  180. CHBSERVICE=1
  181. "ARM"
  182. "'l⌐Ñ1╒","ñARM╒"
  183. CHBSERVICE=2
  184. "AFRC"
  185. "'l⌐Ñ2╒","ñAFRC╒"
  186. CHBSERVICE=3
  187. "MRNS"
  188. "'l⌐Ñ3╒","ñMRNS╒"
  189. CHBSERVICE=4
  190. "NVY"
  191. "'l⌐Ñ4╒","ñNVY╒"
  192. CHBSERVICE=5
  193. "CG"
  194. "'l⌐Ñ5╒","ñCG╒"
  195. CHBSERVICE=6
  196. "PH"
  197. "'l⌐Ñ6╒","ñPH╒"
  198. CHBSERVICE=7
  199. "NOAA"
  200. "'l⌐Ñ7╒","ñNOAA╒"
  201. CHBSERVICE=8
  202. "CVA"
  203. "'l⌐Ñ8╒","ñCVA╒"
  204. ISIGLINE
  205. 24,53,"#:","XXXXXXXXXXXXXXXXXXXXXXXXXXX",0,0
  206. SIGLINE
  207. 25,7,"#7","XXXXXXXXXXXXXXXXXXXXXXXXX",0,0
  208. INSDATE
  209. 25,37,"#5","XX-XX-XX",0,0
  210. DATEINJ
  211. 28,5,"#|","XXXXXXXX",0,0
  212. INJURY
  213. 28,20,"#}","X",0,0
  214. DATECON
  215. 28,38,"#~","XXXXXXXX",0,0
  216. ""
  217. 28,74,"ñ╒","X",0,1
  218. EMERGENCY="Y"
  219.  
  220. "#w⌐ñY╒",""
  221. DATEWORK
  222. 30,5,"#Ç","XXXXXXXX",0,0
  223. TDISFROM
  224. 30,20,"#â","XXXXXXXX",0,0
  225. TDISTO
  226. 30,38,"#ä","XXXXXXXX",0,0
  227. PDISFROM
  228. 30,57,"#à","XXXXXXXX",0,0
  229. PDISTO
  230. 30,72,"#å","XXXXXXXX",0,0
  231.  
  232. 32,3,"","XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,2
  233. ICURINS="Primary" AND ITYPE="M" AND ILABPRV<>""
  234. ILABPRV+" "+ILABUPIN
  235. "%v⌐ñPrimary╒»%{⌐ñM╒»%w¬ñ╒","%wªñ ╒ª%x"
  236. RPTYPE="P"
  237. RPPNAME+" "+RPID
  238. "$~⌐ñP╒","$rªñ ╒ª${"
  239. HOSPFROM
  240. 32,57,"$#","XXXXXXXX",0,0
  241. HOSPTO
  242. 32,72,"$$","XXXXXXXX",0,0
  243. FNAME+" "+FCITY+" "+FSTATE
  244. 34,3,"$Vªñ ╒ª$Yªñ ╒ª$Z","XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,0
  245. ""
  246. 34,55,"ñ╒","X",0,1
  247. LABWORK="Y"
  248. "X"
  249. "#z⌐ñY╒","ñX╒"
  250. ""
  251. 34,57,"ñ╒","X",0,1
  252. LABWORK="N"
  253. "X"
  254. "#z⌐ñN╒","ñX╒"
  255. LABCHARGE
  256. 34,69,"#{","XXXX.XX",1,0
  257. DIAGLINE
  258. 36,3,"%:","XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,0
  259. ""
  260. 36,69,"ñ╒","X",0,1
  261. EPSDT="Y"
  262. "X"
  263. "#x⌐ñY╒","ñX╒"
  264. ""
  265. 36,73,"ñ╒","X",0,1
  266. EPSDT="N"
  267. "X"
  268. "#x⌐ñN╒","ñX╒"
  269. DIAGLINE
  270. 37,3,"%:","XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,0
  271. ""
  272. 37,69,"ñ╒","X",0,1
  273. FAMPLAN="Y"
  274. "X"
  275. "#y⌐ñY╒","ñX╒"
  276. ""
  277. 37,73,"ñ╒","X",0,1
  278. FAMPLAN="N"
  279. "X"
  280. "#y⌐ñN╒","ñX╒"
  281. DIAGLINE
  282. 38,3,"%:","XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,0
  283. DIAGLINE
  284. 39,3,"%:","XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,0
  285. PRIORAUTH
  286. 39,65,"$%","XXXXXXXXXXXXXXX",0,0
  287. ""
  288. 42,71,"ñ╒","XXXXXXXXX",0,1
  289. IPRINTID="P"
  290. EPHYSNAME
  291. "&(⌐ñP╒","%\"
  292. DATE
  293. 43,2,"%;","XXXXXX",0,0
  294. ""
  295. 43,8,"ñ╒","XXXXXX",0,1
  296. TODATE<>DATE
  297. TODATE
  298. "%<¬%;","%<"
  299. POS
  300. 43,16,"%L","XX",0,0
  301. CODE
  302. 43,20,"%?","XXXXXXXX",0,0
  303. DESC
  304. 43,28,"%K","XXXXXXXXXXXXXXXXXXXXX",0,1
  305. BETWEEN(DESC,"(",")")>0 AND BETWEEN(DESC,"(",")")<=999
  306. AFTER(DESC,")")
  307. "╕%Kºñ(╒ºñ)╒¿¼Ñ0╒»╕%Kºñ(╒ºñ)╒¿¡Ñ999╒","║%Kºñ)╒¿"
  308. DIAGPTR
  309. 43,51,"%O","XXXX",0,0
  310. AMOUNT
  311. 43,56,"%R","XXXX.XX",1,0
  312. UNITS
  313. 43,64,"%P","XXX",1,0
  314. TOS
  315. 43,68,"%M","XX",0,0
  316. ""
  317. 43,71,"ñ╒","XXXXXXXXX",0,1
  318. IPRINTID<>""
  319. EPHYSPIN
  320. "&(¬ñ╒","%]"
  321. ""
  322. 44,71,"ñ╒","XXXXXXXXX",0,1
  323. IPRINTID="P"
  324. EPHYSNAME
  325. "&(⌐ñP╒","%\"
  326. DATE
  327. 45,2,"%;","XXXXXX",0,0
  328. ""
  329. 45,8,"ñ╒","XXXXXX",0,1
  330. TODATE<>DATE
  331. TODATE
  332. "%<¬%;","%<"
  333. POS
  334. 45,16,"%L","XX",0,0
  335. CODE
  336. 45,20,"%?","XXXXXXXX",0,0
  337. DESC
  338. 45,28,"%K","XXXXXXXXXXXXXXXXXXXXX",0,1
  339. BETWEEN(DESC,"(",")")>0 AND BETWEEN(DESC,"(",")")<=999
  340. AFTER(DESC,")")
  341. "╕%Kºñ(╒ºñ)╒¿¼Ñ0╒»╕%Kºñ(╒ºñ)╒¿¡Ñ999╒","║%Kºñ)╒¿"
  342. DIAGPTR
  343. 45,51,"%O","XXXX",0,0
  344. AMOUNT
  345. 45,56,"%R","XXXX.XX",1,0
  346. UNITS
  347. 45,64,"%P","XXX",1,0
  348. TOS
  349. 45,68,"%M","XX",0,0
  350. ""
  351. 45,71,"ñ╒","XXXXXXXXX",0,1
  352. IPRINTID<>""
  353. EPHYSPIN
  354. "&(¬ñ╒","%]"
  355. ""
  356. 46,71,"ñ╒","XXXXXXXXX",0,1
  357. IPRINTID="P"
  358. EPHYSNAME
  359. "&(⌐ñP╒","%\"
  360. DATE
  361. 47,2,"%;","XXXXXX",0,0
  362. ""
  363. 47,8,"ñ╒","XXXXXX",0,1
  364. TODATE<>DATE
  365. TODATE
  366. "%<¬%;","%<"
  367. POS
  368. 47,16,"%L","XX",0,0
  369. CODE
  370. 47,20,"%?","XXXXXXXX",0,0
  371. DESC
  372. 47,28,"%K","XXXXXXXXXXXXXXXXXXXXX",0,1
  373. BETWEEN(DESC,"(",")")>0 AND BETWEEN(DESC,"(",")")<=999
  374. AFTER(DESC,")")
  375. "╕%Kºñ(╒ºñ)╒¿¼Ñ0╒»╕%Kºñ(╒ºñ)╒¿¡Ñ999╒","║%Kºñ)╒¿"
  376. DIAGPTR
  377. 47,51,"%O","XXXX",0,0
  378. AMOUNT
  379. 47,56,"%R","XXXX.XX",1,0
  380. UNITS
  381. 47,64,"%P","XXX",1,0
  382. TOS
  383. 47,68,"%M","XX",0,0
  384. ""
  385. 47,71,"ñ╒","XXXXXXXXX",0,1
  386. IPRINTID<>""
  387. EPHYSPIN
  388. "&(¬ñ╒","%]"
  389. ""
  390. 48,71,"ñ╒","XXXXXXXXX",0,1
  391. IPRINTID="P"
  392. EPHYSNAME
  393. "&(⌐ñP╒","%\"
  394. DATE
  395. 49,2,"%;","XXXXXX",0,0
  396. ""
  397. 49,8,"ñ╒","XXXXXX",0,1
  398. TODATE<>DATE
  399. TODATE
  400. "%<¬%;","%<"
  401. POS
  402. 49,16,"%L","XX",0,0
  403. CODE
  404. 49,20,"%?","XXXXXXXX",0,0
  405. DESC
  406. 49,28,"%K","XXXXXXXXXXXXXXXXXXXXX",0,1
  407. BETWEEN(DESC,"(",")")>0 AND BETWEEN(DESC,"(",")")<=999
  408. AFTER(DESC,")")
  409. "╕%Kºñ(╒ºñ)╒¿¼Ñ0╒»╕%Kºñ(╒ºñ)╒¿¡Ñ999╒","║%Kºñ)╒¿"
  410. DIAGPTR
  411. 49,51,"%O","XXXX",0,0
  412. AMOUNT
  413. 49,56,"%R","XXXX.XX",1,0
  414. UNITS
  415. 49,64,"%P","XXX",1,0
  416. TOS
  417. 49,68,"%M","XX",0,0
  418. ""
  419. 49,71,"ñ╒","XXXXXXXXX",0,1
  420. IPRINTID<>""
  421. EPHYSPIN
  422. "&(¬ñ╒","%]"
  423. ""
  424. 50,71,"ñ╒","XXXXXXXXX",0,1
  425. IPRINTID="P"
  426. EPHYSNAME
  427. "&(⌐ñP╒","%\"
  428. DATE
  429. 51,2,"%;","XXXXXX",0,0
  430. ""
  431. 51,8,"ñ╒","XXXXXX",0,1
  432. TODATE<>DATE
  433. TODATE
  434. "%<¬%;","%<"
  435. POS
  436. 51,16,"%L","XX",0,0
  437. CODE
  438. 51,20,"%?","XXXXXXXX",0,0
  439. DESC
  440. 51,28,"%K","XXXXXXXXXXXXXXXXXXXXX",0,1
  441. BETWEEN(DESC,"(",")")>0 AND BETWEEN(DESC,"(",")")<=999
  442. AFTER(DESC,")")
  443. "╕%Kºñ(╒ºñ)╒¿¼Ñ0╒»╕%Kºñ(╒ºñ)╒¿¡Ñ999╒","║%Kºñ)╒¿"
  444. DIAGPTR
  445. 51,51,"%O","XXXX",0,0
  446. AMOUNT
  447. 51,56,"%R","XXXX.XX",1,0
  448. UNITS
  449. 51,64,"%P","XXX",1,0
  450. TOS
  451. 51,68,"%M","XX",0,0
  452. ""
  453. 51,71,"ñ╒","XXXXXXXXX",0,1
  454. IPRINTID<>""
  455. EPHYSPIN
  456. "&(¬ñ╒","%]"
  457. ""
  458. 52,71,"ñ╒","XXXXXXXXX",0,1
  459. IPRINTID="P"
  460. EPHYSNAME
  461. "&(⌐ñP╒","%\"
  462. DATE
  463. 53,2,"%;","XXXXXX",0,0
  464. ""
  465. 53,8,"ñ╒","XXXXXX",0,1
  466. TODATE<>DATE
  467. TODATE
  468. "%<¬%;","%<"
  469. POS
  470. 53,16,"%L","XX",0,0
  471. CODE
  472. 53,20,"%?","XXXXXXXX",0,0
  473. DESC
  474. 53,28,"%K","XXXXXXXXXXXXXXXXXXXXX",0,1
  475. BETWEEN(DESC,"(",")")>0 AND BETWEEN(DESC,"(",")")<=999
  476. AFTER(DESC,")")
  477. "╕%Kºñ(╒ºñ)╒¿¼Ñ0╒»╕%Kºñ(╒ºñ)╒¿¡Ñ999╒","║%Kºñ)╒¿"
  478. DIAGPTR
  479. 53,51,"%O","XXXX",0,0
  480. AMOUNT
  481. 53,56,"%R","XXXX.XX",1,0
  482. UNITS
  483. 53,64,"%P","XXX",1,0
  484. TOS
  485. 53,68,"%M","XX",0,0
  486. ""
  487. 53,71,"ñ╒","XXXXXXXXX",0,1
  488. IPRINTID<>""
  489. EPHYSPIN
  490. "&(¬ñ╒","%]"
  491. CHARGES
  492. 55,53,"#-","XXXXXXX.XX",1,0
  493. PAYMENTS
  494. 55,64,"#.","XXXXX.XX",1,0
  495. DUE
  496. 55,73,"#0","XXXX.XX",1,0
  497. ""
  498. 56,39,"ñ╒","X",0,3
  499. ICURINS="Primary" AND ACCASSIGN="Y"
  500. "X"
  501. "%v⌐ñPrimary╒»$1⌐ñY╒","ñX╒"
  502. ICURINS="Secondary" AND ACASSIGNB="Y"
  503. "X"
  504. "%v⌐ñSecondary╒»$2⌐ñY╒","ñX╒"
  505. ICURINS="Tertiary" AND ACASSIGNC="Y"
  506. "X"
  507. "%v⌐ñTertiary╒»$3⌐ñY╒","ñX╒"
  508. ""
  509. 56,43,"ñ╒","X",0,3
  510. ICURINS="Primary" AND ACCASSIGN="N"
  511. "X"
  512. "%v⌐ñPrimary╒»$1⌐ñN╒","ñX╒"
  513. ICURINS="Secondary" AND ACASSIGNB="N"
  514. "X"
  515. "%v⌐ñSecondary╒»$2⌐ñN╒","ñX╒"
  516. ICURINS="Tertiary" AND ACASSIGNC="N"
  517. "X"
  518. "%v⌐ñTertiary╒»$3⌐ñN╒","ñX╒"
  519. PSIGLINE
  520. 57,3,"#8","XXXXXXXXXXXXXXXXXXXXXXXXXXX",0,0
  521. ""
  522. 57,52,"ñ╒","XXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,3
  523. PRINTPRAC="Y" AND PRACDOC="P"
  524. PRNAME
  525. "#F⌐ñY╒»#D⌐ñP╒","#L"
  526. PRINTPRAC="Y" AND PRACDOC="D" AND BYATTEND="N"
  527. PNAME
  528. "#F⌐ñY╒»#D⌐ñD╒»#<⌐ñN╒","$>"
  529. PRINTPRAC="Y" AND PRACDOC="D" AND BYATTEND="Y"
  530. ANAME
  531. "#F⌐ñY╒»#D⌐ñD╒»#<⌐ñY╒","%_"
  532. ""
  533. 58,52,"ñ╒","XXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,3
  534. PRINTPRAC="Y" AND PRACDOC="P"
  535. PRSTREET
  536. "#F⌐ñY╒»#D⌐ñP╒","#M"
  537. PRINTPRAC="Y" AND PRACDOC="D" AND BYATTEND="N"
  538. PSTREET
  539. "#F⌐ñY╒»#D⌐ñD╒»#<⌐ñN╒","$?"
  540. PRINTPRAC="Y" AND PRACDOC="D" AND BYATTEND="Y"
  541. ASTREET
  542. "#F⌐ñY╒»#D⌐ñD╒»#<⌐ñY╒","%`"
  543. SYSDATE
  544. 59,22,"#6","XX-XX-XX",0,0
  545. ""
  546. 59,34,"ñ╒","XXX-XX-XXXXX",0,3
  547. PRINTPRAC="Y" AND PRACDOC="D" AND BYATTEND="N"
  548. PSSN
  549. "#F⌐ñY╒»#D⌐ñD╒»#<⌐ñN╒","$F"
  550. PRINTPRAC="Y" AND PRACDOC="D" AND BYATTEND="Y"
  551. ASSN
  552. "#F⌐ñY╒»#D⌐ñD╒»#<⌐ñY╒","%g"
  553. PRINTPRAC="Y" AND PRACDOC="P"
  554. PSSN
  555. "#F⌐ñY╒»#D⌐ñP╒","$F"
  556. ""
  557. 59,52,"ñ╒","XXXXXXXXXXXXXXXXXXXXXXXXXXXX",0,3
  558. PRINTPRAC="Y" AND PRACDOC="P"
  559. PRCITYLN
  560. "#F⌐ñY╒»#D⌐ñP╒","#N"
  561. PRINTPRAC="Y" AND PRACDOC="D" AND BYATTEND="N"
  562. PCITYLN
  563. "#F⌐ñY╒»#D⌐ñD╒»#<⌐ñN╒","$@"
  564. PRINTPRAC="Y" AND PRACDOC="D" AND BYATTEND="Y"
  565. ACITYLN
  566. "#F⌐ñY╒»#D⌐ñD╒»#<⌐ñY╒","%a"
  567. ""
  568. 60,52,"ñ╒","XXXXXXXXXXXXXX",0,3
  569. PRINTPRAC="Y" AND PRACDOC="P"
  570. PRPHONE
  571. "#F⌐ñY╒»#D⌐ñP╒","#R"
  572. PRINTPRAC="Y" AND PRACDOC="D" AND BYATTEND="N"
  573. PPHONE
  574. "#F⌐ñY╒»#D⌐ñD╒»#<⌐ñN╒","$D"
  575. PRINTPRAC="Y" AND PRACDOC="D" AND BYATTEND="Y"
  576. APHONE
  577. "#F⌐ñY╒»#D⌐ñD╒»#<⌐ñY╒","%e"
  578. CHART
  579. 61,3,"#V","XXXXXXXX",0,0
  580. SYSDATE
  581. 61,13,"#6","XX-XX-XX",0,0
  582. ""
  583. 61,34,"ñ╒","XXXXXXXXXXXXXXX",0,3
  584. PRINTPRAC="Y" AND PRACDOC="P"
  585. PRFEDID
  586. "#F⌐ñY╒»#D⌐ñP╒","#S"
  587. PRINTPRAC="Y" AND PRACDOC="D" AND BYATTEND="N"
  588. PLICENSE
  589. "#F⌐ñY╒»#D⌐ñD╒»#<⌐ñN╒","$G"
  590. PRINTPRAC="Y" AND PRACDOC="D" AND BYATTEND="Y"
  591. ALICENSE
  592. "#F⌐ñY╒»#D⌐ñD╒»#<⌐ñY╒","%h"
  593. IIDNUM
  594. 61,56,"&&","XXXXXXXXXXXXXXX",0,0
  595. 6
  596. 4
  597. 20
  598. 66
  599. "66"
  600. 79
  601. "79"
  602.  
  603. ""
  604.  
  605. ""
  606. DATE,DOC
  607. "%^%;%="
  608.  
  609. ""
  610.  
  611. "%^"
  612.  
  613. ""
  614.  
  615. ""
  616. Y
  617. "Y"
  618. N
  619. "N"
  620. N
  621. "N"
  622. N
  623. "N"
  624. N
  625. "N"
  626. N
  627. "N"
  628. N
  629. "N"
  630. D
  631. "D"
  632. Y
  633. "Y"
  634. Y
  635. "Y"
  636. TAX
  637. "TAX"
  638. 18
  639. "","Y"
  640. "","Y"
  641. "","Y"
  642. "","Y"
  643. "","Y"
  644. "","Y"
  645. "","Y"
  646. "","Y"
  647. "","Y"
  648. "","Y"
  649. "","Y"
  650. "N","Y"
  651. "","Y"
  652. "","N"
  653. "","N"
  654. "","N"
  655. "","N"
  656. "","Y"
  657.